(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[      4530,        162]
NotebookOptionsPosition[      3824,        133]
NotebookOutlinePosition[      4306,        153]
CellTagsIndexPosition[      4263,        150]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Animation", "Chapter"],

Cell[CellGroupData[{

Cell["Mass Spring System", "Subchapter"],

Cell["\:9996\:5148\:8003\:8651\:4e00\:4e2aL\:957f\:5ea6\:7684\:5f39\:7c27\
\:548c\:4e24\:4e2a\:8d28\:70b9\:8fde\:63a5\:ff0ca\:ff0cb\:5206\:522b\:662f\
\:70b9\:ff0ca-b\:662f\:4e00\:4e2a\:5411\:91cf", "Text"],

Cell[BoxData[
 RowBox[{"F", "=", 
  RowBox[{
   RowBox[{"k", " ", "\[CapitalDelta]x"}], "=", 
   RowBox[{"k", " ", 
    RowBox[{"(", 
     RowBox[{"L", "-", 
      RowBox[{"Abs", "[", 
       RowBox[{"b", "-", "a"}], "]"}]}], ")"}]}]}]}]], "Input",
 Background->RGBColor[
  0.9529411764705882, 0.9529411764705882, 0.9529411764705882]],

Cell[TextData[{
 "\:8fd9\:53ea\:662f\:529b\:7684\:5927\:5c0f\:ff0c\:52a0\:4e0a\:65b9\:5411\
\:5c31\:9700\:8981\:4e58\:4ee5\:4e00\:4e2a\:5f52\:4e00\:5316\:7684\:5411\:91cf\
",
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{"b", "-", "a"}], 
    RowBox[{"Abs", "[", 
     RowBox[{"b", "-", "a"}], "]"}]], TraditionalForm]],
  FormatType->"TraditionalForm"],
 "\:ff0cl-Abs[b-a]\:53ea\:80fd\:8868\:793a\:6b63\:8d1f(\:62c9\:4f38/\:538b\
\:7f29)\:ff0c\:5f52\:4e00\:5316\:53ef\:4ee5\:8868\:793a\:529b\:7684\:65b9\
\:5411"
}], "Text"],

Cell[BoxData[
 RowBox[{
  SubscriptBox["F", 
   RowBox[{"a", "\[Rule]", " ", "b"}]], "=", 
  RowBox[{"k", " ", 
   FractionBox[
    RowBox[{"b", "-", "a"}], 
    RowBox[{"Abs", "[", 
     RowBox[{"b", "-", "a"}], "]"}]], 
   RowBox[{"(", 
    RowBox[{"L", "-", 
     RowBox[{"Abs", "[", 
      RowBox[{"b", "-", "a"}], "]"}]}], ")"}]}]}]], "Input",
 Background->RGBColor[
  0.9529411764705882, 0.9529411764705882, 0.9529411764705882]],

Cell["\<\
\:52a0\:4e0a\:5185\:90e8\:635f\:8017\
\>", "Text"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "b\:70b9\:53d7\:5230\:7684\:963b\:529bFb", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    StyleBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"b", "'"}], "-", 
        RowBox[{"a", "'"}]}], ")"}], "\:662f\:76f8\:5bf9\:901f\:5ea6"}], 
     "OperatorCharacter"], 
    StyleBox["\:ff0c", "OperatorCharacter"], 
    RowBox[{
     RowBox[{
      FractionBox[
       RowBox[{"b", "-", "a"}], 
       RowBox[{"Abs", "[", 
        RowBox[{"b", "-", "a"}], "]"}]], 
      StyleBox[".", "OperatorCharacter"], 
      StyleBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"b", "'"}], "-", 
         RowBox[{"a", "'"}]}], ")"}], "OperatorCharacter"]}], 
     StyleBox["\:662fab\:65b9\:5411\:4e0a\:7684\:76f8\:5bf9\:901f\:5ea6", 
      "OperatorCharacter"]}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   SubscriptBox["F", "b"], "=", 
   RowBox[{
    RowBox[{"-", "kd"}], 
    RowBox[{
     FractionBox[
      RowBox[{"b", "-", "a"}], 
      RowBox[{"Abs", "[", 
       RowBox[{"b", "-", "a"}], "]"}]], 
     StyleBox[".", "OperatorCharacter"], 
     StyleBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"b", "'"}], "-", 
        RowBox[{"a", "'"}]}], ")"}], "OperatorCharacter"], 
     StyleBox[".", "OperatorCharacter"], 
     FractionBox[
      RowBox[{"b", "-", "a"}], 
      RowBox[{"Abs", "[", 
       RowBox[{"b", "-", "a"}], "]"}]]}]}]}]}]], "Input",
 Background->RGBColor[
  0.9529411764705882, 0.9529411764705882, 0.9529411764705882]]
}, Open  ]]
}, Open  ]]
},
WindowToolbars->"EditBar",
WindowSize->{1600, 826},
WindowMargins->{{-8, Automatic}, {Automatic, -8}},
TaggingRules->{"$testsRun" -> False},
TrackCellChangeTimes->False,
Magnification:>1.25 Inherited,
FrontEndVersion->"11.0 for Microsoft Windows (64-bit) (2016\:5e7410\:67088\
\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 28, 0, 80, "Chapter"],
Cell[CellGroupData[{
Cell[633, 26, 40, 0, 76, "Subchapter"],
Cell[676, 28, 206, 2, 38, "Text"],
Cell[885, 32, 334, 10, 77, "Input"],
Cell[1222, 44, 533, 14, 51, "Text"],
Cell[1758, 60, 434, 14, 97, "Input"],
Cell[2195, 76, 60, 2, 38, "Text"],
Cell[2258, 80, 1538, 49, 138, "Input"]
}, Open  ]]
}, Open  ]]
}
]
*)

